unit Main2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Main, StdCtrls;

type
  TFormMain2 = class(TFormMain)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain2: TFormMain2;

implementation

{$R *.dfm}

procedure TFormMain2.FormShow(Sender: TObject);
var
  i : integer;
begin
  i := 0;
  if Screen.MonitorCount>2 then
    i := 2;
  Left := Screen.Monitors[i].Left;
  Top :=Screen.Monitors[i].Top;
  Width:=Screen.Monitors[i].Width;
  Height:=Screen.Monitors[i].Height;

end;

end.
